home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Educ / Calc / MathPad 2.35.sit / XFuns / XFun kit / div.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-07-10  |  573 b   |  20 lines  |  [TEXT/KAHL]
  1. /* example of a very simple external function. Does an integer divide */
  2.  
  3. #include "callback.h"
  4.  
  5. BOOL div(extended *retval,funptr callback)        /* called for each function evaluation. */
  6. {
  7.    int ok;
  8.    extended a,b;
  9.    ok = GetParmVal(1,&a,callback);            /* 1st parm is 1 */
  10.    if(ok) ok = GetParmVal(0,&b,callback);    /* 2nd parm is 0 */
  11.    if(ok) *retval = (long)a / (long)b;
  12.    return(ok);
  13. }
  14.  
  15. main(funptr callback)            /* called on application startup */
  16. {
  17.     /* provide function name, formal parm list, entry point and predef entry */
  18.     AddXfun("div","a,b",&div,NULL,callback);
  19. }
  20.